#1. Reseccionalización (Convertir a secciones de origen y eliminar duplicados)
escenario$SECCION[escenario$ID_ESTADO== 2  & escenario$SECCION %in% 1807:1846] <- 571
escenario$SECCION[escenario$ID_ESTADO== 2  & escenario$SECCION %in% 1847:1867] <- 123
escenario$SECCION[escenario$ID_ESTADO== 2  & escenario$SECCION %in% 1868:1942] <- 1368
escenario$SECCION[escenario$ID_ESTADO== 3  & escenario$SECCION %in% 440:477]   <- 253
escenario$SECCION[escenario$ID_ESTADO== 4  & escenario$SECCION %in% 491:527]   <- 229
escenario$SECCION[escenario$ID_ESTADO== 5  & escenario$SECCION %in% 1682:1710] <- 9
escenario$SECCION[escenario$ID_ESTADO== 7  & escenario$SECCION %in% 2012:2046] <- 1744
escenario$SECCION[escenario$ID_ESTADO== 8  & escenario$SECCION %in% 3120:3176] <- 1941
escenario$SECCION[escenario$ID_ESTADO== 8  & escenario$SECCION %in% 3177:3215] <- 911
escenario$SECCION[escenario$ID_ESTADO== 10 & escenario$SECCION %in% 1416:1447] <- 447
escenario$SECCION[escenario$ID_ESTADO== 11 & escenario$SECCION %in% 3031:3070] <- 1392
escenario$SECCION[escenario$ID_ESTADO== 11 & escenario$SECCION %in% 3071:3101] <- 1496
escenario$SECCION[escenario$ID_ESTADO== 11 & escenario$SECCION %in% 3102:3120] <- 347
escenario$SECCION[escenario$ID_ESTADO== 13 & escenario$SECCION %in% 1719:1749] <- 739
escenario$SECCION[escenario$ID_ESTADO== 14 & escenario$SECCION %in% 3496:3528] <- 3024
escenario$SECCION[escenario$ID_ESTADO== 14 & escenario$SECCION %in% 3529:3548] <- 3154
escenario$SECCION[escenario$ID_ESTADO== 15 & escenario$SECCION %in% 6394:6432] <- 1959
escenario$SECCION[escenario$ID_ESTADO== 15 & escenario$SECCION %in% 6433:6462] <- 5366
escenario$SECCION[escenario$ID_ESTADO== 19 & escenario$SECCION %in% 2438:2493] <- 64
escenario$SECCION[escenario$ID_ESTADO== 19 & escenario$SECCION %in% 2494:2514] <- 65
escenario$SECCION[escenario$ID_ESTADO== 19 & escenario$SECCION %in% 2515:2546] <- 493
escenario$SECCION[escenario$ID_ESTADO== 19 & escenario$SECCION %in% 2547:2618] <- 353
escenario$SECCION[escenario$ID_ESTADO== 19 & escenario$SECCION %in% 2619:2660] <- 525
escenario$SECCION[escenario$ID_ESTADO== 19 & escenario$SECCION %in% 2661:2694] <- 836
escenario$SECCION[escenario$ID_ESTADO== 21 & escenario$SECCION %in% 2583:2621] <- 1560
escenario$SECCION[escenario$ID_ESTADO== 22 & escenario$SECCION %in% 819:855]   <- 551
escenario$SECCION[escenario$ID_ESTADO== 23 & escenario$SECCION %in% 849:873]   <- 17
escenario$SECCION[escenario$ID_ESTADO== 23 & escenario$SECCION %in% 874:922]   <- 205
escenario$SECCION[escenario$ID_ESTADO== 23 & escenario$SECCION %in% 923:959]   <- 209
escenario$SECCION[escenario$ID_ESTADO== 24 & escenario$SECCION %in% 1796:1814] <- 972
escenario$SECCION[escenario$ID_ESTADO== 25 & escenario$SECCION %in% 3816:3837] <- 2808
escenario$SECCION[escenario$ID_ESTADO== 26 & escenario$SECCION %in% 1408:1441] <- 227
escenario$SECCION[escenario$ID_ESTADO== 26 & escenario$SECCION %in% 1442:1514] <- 585
escenario$SECCION[escenario$ID_ESTADO== 28 & escenario$SECCION %in% 1915:1940] <- 1066
escenario$SECCION[escenario$ID_ESTADO== 28 & escenario$SECCION %in% 1941:1978] <- 995
escenario$SECCION[escenario$ID_ESTADO== 31 & escenario$SECCION %in% 1082:1106] <- 474
escenario$SECCION[escenario$ID_ESTADO== 32 & escenario$SECCION %in% 1883:1909] <- 550
escenario <- escenario[!duplicated(escenario[,c("ID_ESTADO","SECCION")], fromLast=T),] #Eliminar duplicados

#2. Integracion seccional (Duplicar secciones receptoras y asignar origen)
integr <- data.frame(
  ID_ESTADO = c(3,3,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9,9,9,10,10,10,10,10,10,10,11,11,11,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,14,14,15,16,16,18,19,19,19,19,19,20,20,21,24,24,24,24,24,25,25,25,25,25,25,25,25,25,25,26,26,26,26,26,26,26,27,27,28,28,28,28,30,30,30,30,30,31,31,31,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32),
  SECCION = c(67,271,1132,30,208,2495,2507,1219,1232,1260,1250,2368,2368,2352,2371,2371,2473,919,1039,1138,2550,4053,3375,3448,1099,1215,1367,19,914,914,1346,2569,731,1255,449,517,983,2125,2741,2741,2742,2742,1379,1859,2353,645,1890,1925,560,1835,2144,2719,1841,1893,86,427,15,57,61,857,1683,1342,848,601,77,1511,147,668,1740,3437,3461,3779,685,2953,3163,3380,3379,3372,321,115,618,233,245,1085,593,32,444,329,259,362,298,2892,4760,3693,2358,3425,101,730,18,382,643,760,918,926,1018,990,1015,1442,1468,1752,1752,82,82,739,808,841,810,851,868,1253,1169),
  ORIGEN = c(64,275,1133,29,212,2494,2506,1220,1233,1259,1262,2369,2372,2373,2376,2377,2474,920,1040,1141,2551,3768,3376,3485,1129,1216,1366,18,920,925,1343,2567,735,1253,452,516,984,2126,2743,2745,2747,2750,1378,1853,2351,635,1891,1923,558,1836,2143,2714,1842,1897,85,428,14,58,60,859,1684,1341,849,595,74,1518,146,669,1739,3438,3463,3771,684,2952,3160,3375,3378,3388,318,118,617,237,242,1086,594,26,449,330,263,361,307,2890,3678,3689,2350,3429,100,731,19,385,700,759,930,939,985,991,1009,1441,1477,1754,1767,81,100,741,825,840,848,852,872,1254,1168)
)
integr <- merge(integr, escenario, by=c("ID_ESTADO","SECCION"), all.x=TRUE)
integr$SECCION <- integr$ORIGEN #Asignar  origen
escenario <- rbind(escenario, integr[,c("ID_ESTADO","DISTRITO.13","SECCION")]) #Append

# 2. Afectación límites D.F. (Eliminar nuevas secciones)
escenario <- subset(escenario, !(escenario$ID_ESTADO== 9 & escenario$SECCION %in% 5547:5556))

rm(integr)